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X. 


This  paper  describes  the  SLIP  system  for  the  BRLESC  II  computer. 
SLIP  is  an  acronym  standing  for  Symmetric  List  Processor,  a collection 
of  subprograms  originally  designed  and  written  Fy  Professor  Joseph 
Weizenbaum  in  1963. 


List  processors  are  designed  to  process  data  consisting  of  lists 
of  symbols.  List  processing  has  been  used  for  symbolic  processing  in 
differential  and  integral  calculus,  circuit  theory,  mathematical  logic, 
translation  of  natural  language,  artificial  intelligence,  and  numerous 
other  applications. 

SLIP  is  not  an  autonomous  system,  but  a set  of  subroutines 
embedded  within  the  FORTRAN  language.  To  use  SLIP  one  need  only 
familiarize  himself  with  FORTRAN  and  the  SLIP  subprograms.  SLIP  is 
highly  modular;  a call  to  one  subprogram  may  evoke  a dozen  other 
subprograms.  A version  of  SLIP  resides  on  the  BRL  disc  and  may  be 
accessed  via  the  * COMPILE  card  as  follows: 


* COMPILE  DISC,  SLIP,  ALL 


SLIP  is  a list  processing  system  in  which  each  list  cell  (2  FORTRAN 
words)  carries  a forward  and  backward  link  as  well  as  a datum.  It  is 
symmetric  in  the  sense  that  lists  do  not  have  a preferred  orientation. 
That  is,  operations  which  can  be  carried  out  on  the  top  of  a list  can 
be  as  easily  carried  out  on  the  bottom  of  the  list. 


SLIP  (as  many  other  list  processing  languages)  contains  the  following 
features:  dynamic  storage  allocation,  recursive  subprogramming,  manipula- 
tion of  complex  data  structures,  and  pushdown  stores. 


Dynamic  storage  allocation  (2.)* is  the  automatic  assignment  and 
release  of  storage  during  execution.  The  user  creates  lists  as  needed 
and  erases  them  when  he  is  through  working  with  them. 


A recursive  subprogram  is  one  which  calls  itself.  Generally,  a 
routine  may  not  call  itself  because  the  return  linkages  (where  control 
next  passes)  would  be  destroyed.  SLIP  however  provides  mechanisms  for 
saving  return  linkages  in  a pushdown  list  (or  stack)  so  control  always 
passes  to  the  proper  portion  of  the  program.  The  recursive  feature  of 


nut  db 


bUpiuotiUdwcu  ao  mcwucuixouio 


provided  in  nfhpr  1 i <;+• 


processing  languages. 


The  data  structures  of  SLIP  may  contain  symbolic  as  well  as  numeric 
information.  Information  is  carried  by  the  relational  structure  as  well 
as  the  symbolic  content  of  the  data. 

^Numbers  in  brackets  indicate  references . 
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A pushdown  store  or  stack  may  be  thought  of  as  a store  with  the 
property  that  only  the  first  element  of  the  data  may  be  accessed. 
Elements  are  added  to  the  store  by  "pushing  down"  the  existing  list 
and  placing  the  new  element  on  the  stack.  When  the  first  element  is 
removed  the  stack  is  "popped-up"  and  the  next  element  becomes  available 
by  becoming  the  first  element. 


The  remainder  of  this  report  contains  a description  of  SLIP  (for 

4 4-  -i  mtr*  caa  1 Qn^  7 T T*1  Q A A T * T nil  Q hr!  of  rlocrTI  Titl'  ATI 
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of  the  more  than  100  subprograms  of  SLIP  is  given.  Finally,  an 
illustrative  example  using  many  but  not  all  of  the  SLIP  features  is 
shown  (see  1.  for  15  examples  which  exercise  70%  of  the  SLIP  system). 


II.  THE  FUNDAMENTALS  OF  SLIP 


n. 


The  basic  unit  of  SLIP  is  the  SLIP-cell.  A SLIP-cell  consists  of 
two  contiguous  computer  words  (Figure  1).  The  first  word  is  divided 
into  three  fields:  a two-bit  identifier  field  (ID),  and  two  address 

sized  fields  called  the  left  link  (LNKL)  and  right  link  (LNKR) . The 
LNKL  and  LNKR  fields  contain  the  addresses  of  neighboring  SLIP-cells. 
The  LNKL  field  contains  the  address  of  the  word  to  the  left  of  it 
(the  word  above  it  if  thought  of  as  a stack) . The  LNKR  field  contains 
the  address  of  the  word  to  the  right  of  (or  below)  it.  The  machine 
addresses  are  called  "pointers",  and  one  usually  says  the  LNKL  field 
"points"  to  the  word  to  the  left  of  (or  above)  it. 


In  general,  the  second  word  of  the  SLIP-cell  contains  a datum.  The 
datum  assumes  two  forms:  a datura  proper  or  the  above  subdivision  into 

ID,  LNKL,  and  LNKR  fields. 

The  ID  field  of  the  SLIP-cell  identifies  the  cell  as 


ID 

0 

i 

1 

O 


CELL  TYPE 

List  ceil  with  non-name  as  datum 
List  cell  with  list  name  as  datum 
cell 
Reader  cell 


If  the  ID  is  0,  the  second  word  of  the  SLIP-cell  contains  a datum 
proper;  if  1,  the  name  of  a list;  if  2,  the  name  of  an  auxiliary  list 
and  a count  of  how  many  times  it  is  referred  to;  and  if  3,  the  name  of  a 
list  and  a count  of  the  depth  of  the  list  (how  deep  a sublist  it  is). 


* AA-v*c 


in  Vvntli  -i  c T.MVI. 


n LCii  WJliLil 

and  LNKR  fields  contains  the  name  of  a list.  If  more  than  one  cell 


contains  the  name  of  the  same  list,  that  list  is  said  to  have  aliases. 
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The  Header  and  Reader  cells  are  special.  Every  list  has  one  cell 
which  is  its  Header.  The  ID  and  LNKL  fields  of  the  second  word  of  the 
Header  allow  special  information  to  be  attached  to  the  list  it  heads. 

If  there  are  four  or  fewer  classes  of  lists,  a list  mark  may  be  used 
(ID  field).  If  more  than  four  classes  exist,  one  must  use  Description 
Lists  (LNKL  field).  The  List  Mark  allows  enhanced  cross-referencing 
through  complex  list  structures.  It  is  essentially  an  ID  for  a subiist. 
A Description  List  is  an  associate  list  of  a main  list  rather  than  a 
sublist  or  subordinate  list  (although  it  may  also  function  as  a sublist) 

The  Reader  cell  will  be  discussed  in  Section  II.E. 


B.  List  Structures 


A list  structure  is  a set  of  lists  such  that  all  but  one  of  the 
lists  are  subiists  of  the  set.  Figure  2 shows  a simple  list  structure. 
A list  is  a subiist  if  its  name  is  in  the  datum  field  of  a SLIP-cell 
(on  a super  list),  and  that  cell  contains  a 1 in  its  ID  field. 


Much  of  the  power  of  list  processing  derives  from  being  able  to 
create  and  manipulate  list  structures.  That  is,  putting  the  name  of 
one  list  onto  another  list  and  then  working  with  the  entire  structure 
as  a single  entity. 


C . List  of  Available  Space 

The  list  of  available  space  (LAVS)  is  the  space  in  which  all  the 
SLIP-cells  are  formed.  This  area  must  be  declared  by  the  user  in  his 
program.  It  is  best  to  declare  LAVS  to  occupy  all  of  core  memory 
remaining  after  the  compilation  of  all  FORTRAN  programs  needed  by  the 
SLIP  system.  Currently,  this  system  requires  11000  words  of  storage. 
LAVS  is  formed  by  the  user  calling  subroutine  INITAS  which  links 
together  the  available  space. 

In  addition  to  calling  INITAS,  the  user  must  define  the  following 
blank  common  area: 


COMMON  AVSL,  X(100) 


AVSL  is  a single  FORTRAN  word  so  constructed  that  its  LNKR  field 

the  first  word  pair  of  LAVS  and  its  LNKL  field 


the  address  of  the  last  word  pair.  When  a SLIP-cell  is  taken  or 
returned  to  LAVS.  AVSL  is  modified  to  reflect  this  change.  In  some 
SLIP  systems,  AVSL  is  a list  just  like  any  other  SLIP  list.  At  BRL, 
only  one  directional  pointers  appear  in  AVSL. 


v nr\\ 

A ^XUU ) . 


X is  an  array  containing  100  public  lists  with  aliases  X(1),X(2),.. 


n.  Li  : - 

Dy  puunc, 


i»  a ♦ /"\  oil 

axe  Miumi  tu  a. a x 
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common  statement.  An  important  use  of  public  lists  is  in  recursions 
where  they  serve  in  the  communication  of  parameters.  The  user  must  not 
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include  s blank  common  of  his  own  while  using  the  SLIP  system ; 


With  SLIP,  it  is  the  users  responsibility  to  erase  lists  when  they 
are  no  longer  needed.  This  space  would  then  be  returned  to  LAVS.  There 
is  no  automatic  erasure  or  garbage  collection  in  SLIP. 


D.  Recursions 

One  of  the  most  powerful  techniques  of  list  processing  is  recursion. 
This  is  the  feature  which  allows  a subprogram  to  call  itself.  The 
SLIP  subroutines  which  make  recursion  possible  are  VISIT  and  TERM. 


A symbolic  label  defined  by  means  of  the  FORTRAN  ASSIGN  statement 
is  one  of  the  arguments  in  VISIT'S  calling  sequence.  After  stacking 
the  proper  return  address  on  an  internally  kept  local  list,  VISIT 
transfers  control  to  the  address  provided  by  the  symbolic  label. 


TERM  passes  control  back  to  VISIT  with  a value  which  will  become 
the  value  of  VISIT.  The  normal  FORTRAN  control  sequence  is  executed  after 
normal  exit  from  VISIT. 


The  statements: 


Y_  irTr tt  (CfWr*  xtnuoc^ 

= Violl  HUUJL ) 


RETURN 


GOTO 


CALL  TERM  (C,  NOUSE,  TEMP) 


transfers  control  to  GOTO,  executes  some  code,  and  returns  to  VISIT  from 
TERM  where  Y obtains  the  value  C.  Upon  exiting  from  VISIT,  normal  flow 
continues  (i.e.  the  RETURN  statement  is  ultimately  executed). 


One  might  notice  that  TERM,  a FORTRAN  function,  has  2 arguments 
shown  in  SECTION  III.F.  and  3 arguments  above.  The  third  argument 
arises  at  the  BRL  on  BRLESC  II  when  a function  is  called  as  a subroutine. 
In  this  instance  a word  must  be  provided  to  accommodate  the  value  of 
the  function.  TEMP  is  such  a word. 


It  is  possible  to  go  through  loops  within  loops.  That  is,  code 
may  exist  containing  many  calls  to  VISIT  in  a given  block.  The  user 
may  look  upon  the  VISIT  function  as  a GO  TO  operation  under  control  of 
a DO  loon  and  follow  the  FORTRAN  rules  for  such  operations  in  using 


VISIT. 
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VISIT  and  TERM  have  been  written  independently  of  the  SLIP  system 
and  stand  alone.  Un  to  400  recursions  have  been  nrovided  for. 


The  Reader  and  Advance  Functions 


The  Reader  is  an  indexing  apparatus.  It  allows  the  user  to  traverse 
list  structures  comprehensively.  The  Reader  is  a one-dimensional  stack 
whose  elements  refer  to  branch  points  at  which  descents  were  made  into 
sublists.  In  other  words,  the  Reader  keeps  a historical  record  of  its 
traversal  through  lists. 


The  advance  functions  modify  the  state  of  the  Reader.  Advancement 
may  be  linear  or  structural.  Linear  advancement  is  an  advance  through 
a list  element  by  element  and  is  halted  when  a Header  is  reached. 
Structural  advancement  is  an  advance  through  a list  allowing  descents 
into  subiists  (if  advancement  is  to  the  left), 
advance  may  be  a datum,  a sublisb  name  (Header),  or 
Advancement  may  occur  to  the  left  or  to  the  right, 
may  search  through  a list  from  bottom  to  top  (left) 

(right) . 


The  next  unit  of  an 


This  means  that  we 
. or  top  to  bottom 


F.  Naming  Conventions 

In  general,  SLIP  disregards  the  mode  of  subprogram  arguments.  The 
returned  value  of  a function  does  however  follow  the  standard  FORTRAN 
naming  conventions.  Names  beginning  with  I,  J,  K,  L,  M,  or  N are 
considered  integers.  Names  beginning  with  any  other  letter  of  the 
alphabet  are  treated  as  floating  point.  In  order  to  avoid  unwanted 
conversions,  SLIP  has  two  functions,  REEL  and  INTGER,  to  adjust  the 
value  of  ill-named  functions. 


TTT  TUC  CTIDDDnnD  AMC  OC  Cl  TD 
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This  section  gives  a brief  description  of  each  SLIP  subprogram. 
Wherever  possible,  the  subprograms  are  grouped  along  functional  lines. 
Most  of  the  SLIP  subprograms  are  function  subprograms  and  are  written  in 
FORTRAN.  An  indication  (in  parenthesis)  will  be  given  when  there  is  a 
deviation  from  this.  The  codes,  Weizenbaum  or  Hirschberg,  will  be 
indicated  by  a W or  H in  parenthesis  preceding  the  subprogram  name. 

It  is  often  desirable  to  CALL  a function.  If  this  is  done,  the 
user  must  append  on  extra  argument  to  the  FORTRAN  calling  sequence  when 
using  the  BRLESC  II  computer.  This  extra  argument  contains  the 
value  of  the  function  upon  leaving  the  function. 


In  referring  to  the  argument  lists  of 
naming  conventions  adopted  by  Fxndler  (1.) 


subprograms , 

i c onm  1 

J-  — > Wu 


the  following 


n 


X is  a FORTRAN  variable 

LST  is  the  alias  name  of  a list 

MADR  is  a FORTRAN  variable  containing  a machine  address 
KADR  is  a FORTRAN  variable  containing  the  machine  address  of 
another  word 

NRD  is  the  alias  name  of  a Reader 


A.  List  Creation 


(SUBROUTINE,  W)  INITAS (X,N)  where 


X is  a linear  array  of  N words.  INITAS  creates  and 
the  list  of  available  space.  It  also  creates  100  public 
user  must  call  INITAS  before  any  SLIP  subprograms  can  be 


links  together 

1 1 ~ 4-  - TU  ~ 

iiSib  • i lie 

used. 


(W)  LIST  (LST) 


LIST  creates  an  empty  list  with  alias  LST.  If  the  value  of  LST 
is  the  literal  9,  a local  list  is  created.  Local  lists  are  for 
temporary  use. 


Moninul  oti  nrr  T i ct  Hatia 


CW)  NXTLFT (X .MADR) 
(W)  NXTRGT (X , MADR ) 


These  functions  insert  a new  cell  to  the  left  or  right,  respectively, 
of  the  cell  with  machine  address  MADR.  The  contents  of  X are  placed  into 
the  second  word  of  the  cell. 

(W)  NEWTOP (X, LST) 

(W)  NEWBOT(X.LST) 

These  functions  add  a new  cell  to  the  top  and  bottom,  respectively, 
of  the  list  with  alias  LST.  The  contents  of  X are  placed  into  the  second 
word  of  the  cell. 


rw-\  CniRCITDrY  kti 
(W)  SUBSBT (X, LST) 

These  functions  replace  the  contents  of  the  top  and  bottom  cell, 
respectively,  of  the  list  with  alias  LST  with  the  contents  of  X. 

f !« r > Clfr»C'r  ''v  IIA  T\n  A 
(wj  OUBDl  i.AjI'lfVUKJ 

Function.  SUBST  replaces  the  contents  of  the  second  word  of  the 
SLIP-cell  with  machine  address  MADR  with  the  contents  of  X. 


(W)  INLSTL (LST ,MADR) 
rwi  TNI.STRfl.ST  MAnRt 

vv  -U...  v— . |..w.v 

These  functions  leave  the  Header  of  list  LST  as  an  enrotv  list  and 
insert  the  remainder  of  the  list  to  the  left  or  right,  respectively,  of 
the  cell  with  machine  address  MADR. 


(W)  TOP (LST) 

(W)  BOT  (LST) 

These  functions  deliver  the  contents  of  the  top  and  bottom  cell, 
respectively,  of  the  list  with  alias  LST. 

(W)  POPTOP  (LST) 

(W)  POP  BOT  (LST) 


These  functions  deliver  the  contents  of  the  top  and  bottom  ceil, 

I ii»i  4*  V\  o 1 i n T CT  T V\  n 1 n C 

loc  nj.  tu  ci  1 la  o util  • mat  to  x x IS 
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(taken  off  of  the  list). 


C.  Manipulating  Cell  Data 

(ASSEMBLY  SUBROUTINE  H)  SETDIR(I,NL,NR,X) 
(ASSEMBLY  SUBROUTINE  H)  SETIND (I ,NL,NR, KADR) 


These  routines  Store  the  contents  of  I,  NL,  and  NR  in  the  ID,  LNKL, 
and  LNKR  fields  of  word  X or  the  word  whose  address  is  given  by  KADR. 

If  any  of  I,  NL,  or  NR  has  the  value  -1,  the  corresponding  ID,  LNKL,  or 
LNKR  field  is  left  unchanged. 


(ASSEMBLY  H)  STRDIR(X1,X2) 
(ASSEMBLY  H)  STRIND (XI , KADR) 


These  functions  store  the  contents  of  XI  in  X2  or  the  word  whose 
address  is  given  by  KADR, 


(ASSEMBLY  H)  ID (X) 
(ASSEMBLY  H)  LNKL(X) 
(ASSEMBLY  H)  LNKR(X) 


1 -i  > r a -v*  4- V\  A 

-tlUILO  UOilVCi  Vll^ 


ID, 


r XT  VT 


U 1 IU\ 


V 

A . 


(ASSEMBLY  H)  CONT(KADR) 
(ASSEMBLY  H)  INHALT (KADR) 


These  functions  return  the  contents  of  the  word  whose  address  is 
in  KADR.  The  different  names  avoid  the  FORTRAN  naming  convention. 

(H)  MADOV(X) 


13 


Function  MADOV  returns  the  machine  address  of  variable  X.  It  is 
just  a call  to  the  BRLESC  II  function  LOC. 

D.  Reader  and  Advance  Functions 

(W)  LRDROV (1ST) 

LRDROV  appoints  a Reader  for  the  list  with  alias  LST. 

(W)  IRARDR(NRD) 

IRARDR  erases  the  Reader  stack  whose  name  is  NRD. 

("UI1  T dkttd  rxrom 

This  function  returns  the  location  pointer  field  of  Reader  NRD. 
(W)  LOFRDR(NRD) 

This  function  returns  the  list  name  field  of  Reader  NRD. 

(W)  LCNTR(NRD) 

This  function  returns  the  level  counter  field  of  Reader  NRD. 


(W)  REED (NRD) 


REED  returns  the  contents  of  the  cell  to  which  the  Reader  NRD 
currently  points. 

(W)  LVLRVT(NRD) 


This  function  ascends  into  a superlist  from  any  position  in  a list. 
The  Reader  NRD  points  to  the  cell  from  which  the  descent  originated. 


(W)  LVLRV1 (NRD) 


This  function  is  similar  to  LVLRVT  but  ascends  only  1 level  into 
a super list. 

(W)  INITRD fNRDl 


This  function  makes  the  Reader  NRD  point  to  the  Header  cell  of 
the  current  list. 


(W)  LRDRCP(NKD) 


This  function  makes  a copy  of  the  Reader  NRD, 
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rvn  I.KTPRfUT.ST  NRTV1 

W V.— f J 

This  function  retrieves  the  Reader  NRD  referring  to  the  list  with 
alias  LST. 

(H)  DLSRDR(LST) 


HP  V -I  #•  £■<««  am  c o D ao<4  a>»  4*a  f Vo  i ati  T ■?  ct  ^ a f lief  T CT 

l JUd  iUUL-LlUU  auuuilito  cl  ivcau^/i  t u wiib  ubJbi  xp^ivn  ux  at  vx  ix  uvji 


(E'i  (.'i 
00  ADV  W n LlJ 
Pi  (w)  P 


(NRD,  FLAG) 


These  12  functions  advance  the  Reader  NRD.  Advancement  is  linear 
or  structural;  the  next  unit  being  a datum  E,  a subiist  name  N,  or 

advancement  is  to  the  left  L or  to  the  right  R. 


Wi  f V 1 i noor  a/itran/'ornonf 

MX  k.11  X XIIV/UX  UUVUIiWVIIlVItV  j 


flop  urV»  i rV  roma  i n c 0 ac  1 r\n  rr  ac 


an  error  does  not  occur,  or  if  a Header  is  not  reached.  It  is  set  to 
-1  otherwise.  For  structural  advancement,  FLAG  remains  0 until  the 
Header  of  the  main  list  is  reached.  At  this  time,  FLAG  is  set  to  -1. 


(W)  ADVSL (NRD, J, K) 

(W)  ADVSR (NRD,J,K) 

(W)  ADVLL(NRD, J,K) 

(W)  ADVLR (NRD,J,K) 

These  functions  do  the  basic  bookkeeping  and  Reader  updating  for 
the  Reader  NRD.  The  values  of  J and  K delimit  advancement  options. 
The  user  should  rarely  have  direct  need  of  these  routines. 


(Hj  ADNLWR(NRD,N,FLAG) 

This  function  advances  the  Reader  NRD  N steps  linearly  to  the  right 
FLAG  remains  0 if  an  error  does  not  occur,  or  if  a Header  is  not 
reached.  FLAG  is  set  to  -1  otherwise. 

(W)  SEQRDR (LST) 

This  function  appoints  a Sequence  Reader  for  the  list  with  alias 


(W)  SEQLL (KADR , IFLAG) 
(W)  SEQLR( KADR, IFLAG) 


These  functions  advance  the  Sequence  header  KADR  linearly  to  the 
left  and  right,  respectively.  IFLAG  is  set  to  -1,  0,  or  1 depending 
upon  whether  or  not  the  SLIP-cell  contains  a datum,  subiist  name,  or  a 
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(H)  SREED(KADR) 

This  function  delivers  the  contents  of  the  second  word  of  the 
SLIP-cell  to  which  the  Sequence  Reader  KADR  is  currently  pointed. 

(H)  LSPNTR(KADR) 


This  function  returns  the  machine  address  of  the  cell  to  which 
the  Sequence  Reader  KADR  is  currently  pointed. 


(W)  SEQSL(KADR, IFLAG) 
(W)  SEQSR(KADR, IFLAG) 


These  functions  resemble  ADVSEL  and  ADVSER  respectively.  They 


+ V»  a a r 

CIIV) 


descend  into  sublists  for  which  KADR  is  the  Sequence  Reader, 
reach  a terminal  sublist  (one  for  which  no  other  sublist  exists),  they 
behave  as  two  linear  sequence  functions  at  that  level,  IFLAG  is 
returned  as  -1  for  datum  cells,  and  +1  for  Header  cells. 


(H)  ADVDL (KADR, VAL) 

(H)  ADVDR( KADR, VAL) 

These  functions  advance  the  Description  List 
right,  respectively,  to  the  next  attribute.  VAL 
value  unless  no  attributes  remain,  in  which  case. 


Reader  KADR  left  and 
is  given  the  attribute 
VAL  is  set  to  0. 


E.  Character  Manipulation 

The  routines  described  in  this  section  are  general  purpose  character 
manipulation  routines.  They  stand  alone  ana  may  be  used  to  advantage 
outside  of  the  SLIP  system. 

(H)  CP(M) 

This  function  delivers  a mask  covering  the  Mth  character  position. 
1<M<10.  M=1  represents  the  leftmost  character  position;  M=10  the  right- 

most character  position. 

(ASSEMBLY  H)  SQO'JT  (MASK,X) 

This  function  extracts  that  portion  of  X specified  by  MASK  and 
delivers  it  right  justified  and  zero  filled.  X remains  unchanged. 


(ASSEMBLY  H)  SQIN (MASK, DATUM, DEST) 


n , B ,«  a i . • /*  r\p  PT’ 

inis  function  replaces  rne  portion  ui  ucoi 


corresponding  number  nf 
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(Assembly  H)  sHIn(n, datum, dest) 


TVi  4 «•  fi  1 a^4>  «■»  V»  4 f ♦ #•  nc  CT  U«r  XT  V»  4 a »■  4 ♦ 4 am  #■»  a**4  •»  am  1 #«*»*«  **  4-La 

uu3  luiiLiiuii  xcu  ^luiio  ulji  u/  m uu  pudiixwns  anu  x c jjj.au  cr>  me 


vacated  bits  with  N low-order  bits  of  DATUM. 


(ASSEMBLY  H)  LANORM (X) 

LANORM  performs  left  circular  shifts  in  six  bit  bytes  until  the 
leftmost  character  of  X is  non-blank.  This  function  operates  on 
10  characters  or  60  bits. 


(SUBROUTINE  W)  PRESRV(N) 


This  subroutine  preserves  the  top  cell  of  the  first  N (<_  100) 
public  lists. 


rnn  nnnr  Trr  tvtt-  n»> 
(OU  DIWJU  i X INC.  m ) 
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This  subroutine  deletes  the  top  cell  of  the  first  N (<  100)  public 
lists. 


(H)  PARMT(X.N) 

This  function  places  X(I),  I=1,N  on  the  top  of  the  first  N (£  100) 
public  lists. 

(W)  PARMT2  (A,  B) 

This  function  places  A and  B on  top  of  public  lists  1 and  2 
respectively. 

/•tin  wtott  /•/’AfTA  \t/\»  »nrN 

(HJ  v i3i  i (u0iu,iNUU3c) 


This  function  transfers  control  to  the  statements  with  symbolic 
label  GOTO.  NOUSE  is  either  an  unused  argument  or  PARMT  or  PARMT2 
depending  upon  the  subprogram  usage.  The  value  of  VISIT  is  determined 
by  function  TERM. 

(H)  TERM(X, NOUSE) 


Tlii  e i nn  francforc  + r\  VTQTT 
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value.  NOUSE  is  either  an  unused  argument  or  RESTOR(N)  depending  upon 
the  subprogram  usage. 
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VISIT  and  TERM  work  in  tandem.  They  can  stand  alone  outside  of 
the  SLIP  system  (with  functions  INHALT  and  8TRIND) . Provision  has  been 
made  to  accommodate  up  to  400  recursions. 

G.  Input  and  Output 

In  addition  to  the  powerful  FORTRAN  input  and  output  capabilities, 
SLIP  Provides  several  special  purpose  innut -nntrn  it  siihnrnaramc  nf  itc  nun 

(WqH)  RDLSTA(Z) 


Function  RDLSTA  reads  in  and  displays  a list  structure.  Lists  and 
sublists  are  delimited  by  parentheses;  elements  may  be  separated  by 
commas.  All  80  columns  of  the  card  are  read.  A list  structure  may  be 
punched  on  several  consecutive  cards.  In  general,  blanks  are  squeezed 


out  but  they  may  be  used  to  improve  readability. 


1 4.  1 

c j.  emeu  l lunger  unciii 


10  characters  are  truncated  on  the  right,  and  an  error  warning  given; 
elements  shorter  than  10  characters  are  left  justified  and  blank  filled. 
Characters  are  converted  to  their  BCD  (binary  coded  decimal)  equivalent. 

A list  structure  is  started  with  an  open  parenthesis  and  terminated  after 
the  last  closed  parenthesis  by  an  asterisk.  The  dummy  argument  Z in  the 
calling  sequence  is  not  used  by  the  function. 

A structure  given  by 

(A(B(C)))*  would  produce  the  following  output* 

BEGIN  INPUT  LIST 
(A(B(C)))* 

WORD  = A 
WORD  = B 
WORD  = C 

END  INPUT  LIST  - LIST  NAME  = machine  address  in  repeated  format 


(SUBROUTINE  W)  PRLSTS(LST.M) 

This  routine  prints  the  second  word  of  every  non-name  SLIP-cell  of 
the  list  with  alias  LST.  M,  an  integer,  defines  the  output  mode  as 


1 INTEGER 

2 ALPHANUMERIC 

3 REAL  - F FORMAT 

4 OCTAL 

(H)  RITEIT(LST,M,N) 

This  function  prints  the  second  word  of  every  non-name  SLIP-cell  of 
the  list  with  alias  LST.  In  addition,  the  machine  address  of  every  element 
of  the  list  is  output  in  octal.  M,  an  integer,  defines  the  output  mode 
as  follows: 


1 

2 

3 

A 

H 

c 

o 


INTEGER 

REAL  - F FORMAT 
REAL  - E FORMAT 
uLial, 


A T DUAknfMCD  TP 
nuri  iru^  a 
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0,  repeated  sublists  are  noted  put  not  printed  after  the  first  time . If 
N is  non-zero,  repeated  sublists  are  printed  every  time  they  are 
encountered. 


H.  LIST  Marks  and  Description  Lists 
(W)  MRKLSTfN.LST) 

MRKLST  places  N (=0,  1,  2,  3)  as  the  List  Mark  for  the  list  with 

o 1 i o e T CT 

u J.  JLUO  LIU  X • 

(W)  MRKLSS(N.LST) 

MRLKSS  places  N = (0,  1,  2,  3)  as  the  List  Mark  for  the  entire  list 

cf-nirtin'A  rrivon  K\r  T QT 
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(W)  LSTMRK(LST) 

This  function  delivers  the  value  of  the  List  Mark  for  the  list  with 
Elias  LST. 

(HI  IRADLS(LST) 

IRADLS  erases  the  Description  List  of  the  list  with  alias  LST. 

(W)  NAMED  L (LST) 

This  function  delivers  the  Header  of  the  Description  List 
associated  with  the  list  whose  alias  is  LST. 

(W)  LISTAV  (LST) 

This  function  creates  an  empty  Description  List  for  the  list  with 

alias  LST. 

(W)  MAKEDL (LST1 , LST2 ) 

This  function  causes  LST1  to  become  the  Description  List  of  the 
list  with  alias  LST2. 

(W)  LDATVL (AT,VAL, LST) 

This  function  adds  to  or  creates  the  Description  List  LST.  If 
LST  exists  AT  and  VAL,  an  attribute  pair  are  placed  on  the  list.  If  LST 
does  not  exist,  it  is  created  and  then  AT  and  VAL  are  placed  on  it. 

(W)  NEWVAL (AT , VAL , L ST) 

This  function  searches  the  Description  List  of  the  list  with  alias 
LST  for  the  attribute  AT.  If  found,  VAL  is  assigned  the  value  of  AT, 
otherwise,  both  AT  and  VAL  are  added  to  the  list. 


19 


(W)  NOATVL  (AT , LST) 

This  function  removes  the  attribute  AT  from  the  Description  List 
of  the  list  with  alias  LST. 

(W)  ITSVAL(AT,LST) 

This  function  delivers  the  value  associated  with  the  attribute  AT 
from  the  Description  List  of  the  list  with  alias  LST. 

(W)  MTDLST(LST) 

This  function  empties  the  Description  List  of  the  list  with  alias 

LST. 


(w)  MADATR (AT , LST) 

This  function  returns  the  machine  address  of  the  cell  on  the 
Description  List  of  the  list  whose  alias  is  LST  and  contains  the 
attribute  AT. 


minnAun’T»?r  t.r'N  nrnn An  f T r*rp> 

^udkuu  i j.WE  rv  j uctu^uK  i_L.ai  j 

This  routine  prints  the  Header  of  list  LST  if  a Description  List  of 
the  list  with  alias  LST  cannot  be  found.  It  is  an  error  routine  which 
terminates  the  job. 


(H)  SCHATL(AT.LST) 
(H)  SCHATR (AT, LST) 


These  functions  search  the  Description  Lists  of  the  list  with  alias 
LST  for  the  attribute  AT  to  the  left  and  right,  respectively. 


I . Miscellaneous  Subprograms 
(W)  DELETE (MADR) 


This  function  erases  any  list  cell  with  the  machine  address  MADR 
except  a Header  cell. 


(H)  EQUAL (A, B) 

This  functions  test  A and  B for  equality.  If  they  are  equal,  0 is 
returned;  otherwise,  -1  is  returned. 


/'acc m mr  v 
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This  function  3.1  lows  X to  3 s susic  3n  integer  ruune. 
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(W)  IRALST(LST) 


This  function  returns  the  list  with  alias  LST  to  available  space. 
It  erases  the  list. 

(W)  LI STMT (LST) 


Ain/'t  ■? 
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If  tlio  1i  ct  uri  fli  oliac  T CT 

kJ.  k-4iv/  i.x  jk  nxlu  uaauj  uk>i 


If  so,  0 is  delivered,  otherwise,  -1  is  returned. 


amn+  \r 
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(W)  LOCT (LST) 


This  function  tests  to  see  whether  or  not  its  argument  LST  is  a 
list  alias.  If  so,  the  returned  value  is  the  alias,  otherwise,  a 
message  is  printed  and  the  program  is  terminated.  The  user  will  rarely 

evci  iiccu  iu  ube  lULi  unctu/. 

(W)  LPURGE (LST) 

This  function  deletes  all  references  to  lists  from  the  list 
structure  LST. 


(W)  LSSCPY (LST) 

This  function  creates  a copy  of  the  list  with  alias  LST. 

(W)  LSTEQL (LST1 , LST2) 

This  function  compares  list  LST1  with  list  LST2  for  equality.  If 
they  are  indentical  in  structure  and  content,  the  returned  value  is  0, 
otherwise,  -1  is  returned. 

(W)  MADLFT (MADR) 

(W)  MADRGT (MADR) 

These  functions  return  the  machine  address  of  the  cell  to  the  left 
and  right,  respectively,  as  specified  by  the  machine  address  MADR. 

^».t\  i < • r\i  »t-p n f t prr 
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These  functions  return  the  machine  address  of  the  Nth  cell  from 
the  top  and  bottom,  respectively,  of  the  list  with  alias  LST. 


(W)  MTLIST (LST) 


This  function  returns  all  the  tells  of  the  list  with  alias  LST  to 
available  storage  except  for  the  Header  cell  and  the  Description  List 


(if  ovi  p 1 

^-LJL  UUC-  tAJ.Ol.oj  • 


21 


(W)  NAMTST (LST) 

This  function  tests  the  alias  of  the  list  LST.  If  an  alias  truly 
exists,  0 is  returned,  otherwise,  -1  is  returned. 


J INULtLL  (/,) 
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space.  The  dummy  argument  Z is  not  used. 


(W)  NULSTL (MADR, LST) 
(W)  NULSTR (MADR, LST) 


These  functions  split  the  list  with  alias  LST  in  two  from  the  left 
and  right,  respectively,  starting  at  machine  address  MADR. 

r^iiRRmiTTMF  un  rpft  i nuanRi 
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This  routine  returns  the  cell  with  machine  address  MADR  to  the  list 
of  available  space. 

(ASSEMBLY  H)  REEL (L) 


This 


allows  L to  assume  a real  (floating  point)  name. 


IV.  A SAMPLE  SLIP  PROGRAM 

This  section  contains  a program  example  using  many  of  the  system 
features,  but  not  all  of  its  subroutines. 

Pt»aK1  om  • 

i VUl  \_,m  • 

Read  in  a list  structure  containing  part  of  the  hierarchy  of  the 
BRL  management.  Find  a particular  Laboratory  Chief's  name  and  insert 
the  name  of  another  Laboratory  Chief  ahead  of  the  first  name.  Print 
the  list  structures  before  and  after  the  modification. 


The  following  pages  contain  the  input  data  (list  structure) , a 
listing  of  the  program,  and  the  program  output. 

Program  Inputs: 

The  following  is  a list  of  the  input  cards  to  the  sample  program. 


(EICHELBERGER (FRASIER, HOFFMAN (JOHNSON, KOKINAKIS, CUMMINGS ( 


- »ir\T  t r\tirAY'  Tr\j_r\icr\M  cpui  T^ClT^l  "\  ^ 
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mese  inputs  aepiti  tnc  luuOwlng  iidi  suutiuic. 


EICHEL BERGER 

FRASIER 

HOFFMAN 

JOHNSON 

KOKINAKIS 

CUNNINGS 

CANDLAND 

HTncruDCDr 
iKDLriui^ixo 

HOLLOWAY 

JOHNSON 

SCHLEGEL 

MURPHY 


Each  indentation  corresponds  to  a sublist  and  reflects  a lower 
level  in  the  BRL  hierarchy.  Notice  one  can  embed  sublists  with  very 
little  effort.  Notice  also  that  Murphy  is  a part  of  the  sublist 


rnDACTRD 

IV\UXL.I\| 


menus  w miidduvi 
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Program  listing. 

Several  items  appearing  on  the  program  listing  require  special 
attention.  The  user  must  not  use  any  blank  COMMON  of  his  own.  The 
common  statement 

COMMON  AVSL.X(IOO) 

defines  the  limits  of  available  space  and  the  public  lists.  The  user 
must  call  INITAS  which  sets  up  the  list  of  available  space. 

PROGRAM  SLIP 


r 

v. 

c 

c 

c 

c 

c 


r 

c 

c 

c 

c 


THIS  PRQGPAM  IS  AN  ILLUSTRATION  OF  THE  SLIP  SYSTEM 

IT  WILL  DISPLAY  A PART  OF  THE  HIERARCHY  OF  BRL  AND  THEN  MODIFY  IT 


SET  UP  COMMON  AND  WORKING  STORAGE  AREAS 


COMMON  AVSL,X(100) 

DIMENSION  WRKSPC (500) 

INITIALIZE  WORKING  SPACE 

CALL  INITAS (WRKSPC. 500) 

READ  IN  AND  DISPLAY  A LIST  STRUCTURE 
BRLSTF=RDLSTA(Z) 

PRINT  LIST  STRUCTURE 

CALL  RITE IT (BRLSTF ,5 , 0) 

INSERT  A NAME  OF  A LAB  CHIEF 

CALL  LABCHF (BRLSTF, 4HREED .7HHOFFMAN) 
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c 

c 


PRINT  LIST 

CALL  PRLSTS (BRLSTF , 2 ) 
END  PROGRAM 
CALL  EXIT 
END 


Limrucn  ct  cvmbi  cvwmi 
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c 

C THIS  ROUTINE  SEARCHES  THE  LIST  STRUCTURE  LST  FOR  SYMB2  AND  INSERTS 
C SYMB1  BEFORE  IT 
C 

C APPOINT  A READER  FOR  THE  LIST  STRUCTURE 
LRD=LRDRO'v  (LST) 

C ADVANCE  READER 

1 0 TE  ST-ADVSER (LRD , F LAG ) 

C TEST  FLAG 

IF  (FLAG. NE. 0.0)  GO  T020 
C IF  ELEMENT  IS  SYMB2  PUT  SYMB1  BEFORE  IT 

IF  (TEST.EQ.SYMB2)  CALL  NXTLFT (SYMB1 , LPNTR (LRD) ) 

GO  TO  10 
C ERASE  READER 

20  CALL  IRARDR (LRD, TEMP) 

C END  ROUTINE 
RETURN 
END 

Many  of  the  subprograms  of  SLIP  are  function  subprograms.  They 
may  however  be  called  as  they  were  subroutine  subprograms.  When 
this  occurs,  an  extra  argument  should  be  provided  for  to  accommodate 
the  value  of  the  function.  The  call  of  IRARDR  contains  the  extra 
argument  TEMP  for  this  purpose.  Notice  the  function  subprogram  NXTLFT 
does  not  have  an  extra  argument  to  provide  for  the  value  of  the 
function.  When  an  extra  argument  is  not  provided,  an  error  may  occur. 
Fortunately,  in  this  instance  no  error  occurred. 


nnAPDAU  nirroiTTc 
r Kt/uiw’i  \j\j  u u i J 


Program  outputs  consist  of  a listing  of  each  input  card  followed 
by  a breakdown  of  every  element  on  that  card.  An  element  can  contain 
only  10  characters.  If  more  are  included  they  are  truncated  on  the 
right  and  an  error  warning  is  printed.  The  output  beginning  with 
BEGIN  INPUT  LIST  and  ending  with  END  INPUT  LIST  - LIST  NAME,  etc.  is 
produced  by  FUNCTION  RDLSTA.  The  output  begi  nmng  with  LIST  STRUCTURE 
WITH  HEADER,  etc.  and  ending  with  END  OF  LIST  STRUCTURE  is  printed  by 
subroutine  RITEIT.  The  numbers  are  the  octal  machine  addresses  of  the 
listed  elements.  The  output  beginning  with  BEGIN  LIST  and  ending  with 
END  LIST  is  printed  by  subroutine  PRLSTS. 


We  observe  that  the  element  REED  has  been  placed  before  the  element 
HOFFMAN. 


The  output  from  subroutine  RITEIT  reflects  the  list  structure  as 
it  is  originally  read.  The  output  of  subroutine  PRLSTS  contains  the 
modified  list  structure. 


BEGIN  INPUT  LIST 


(E I CHELBERGER( FRASIER,  HOFFMAN  ( 


WORD=EICHELBERG 

MORE  THAN  10  CHARACTERS  IN  WORD 
WORD=FRASIER 
W0RD=H0FFMAN 


TnUMCOM  VCiYJ  MAVTC  fllfmTMrC/’ 

%j  ui  inuuii  | i\Uj\  x O * uui'U'iiii  OiJ  ^ 


WQRD= JOHNSON 
W0RD=K0KINAKIS 
W0RD=CUMMI NGS 


CANDLAND,HIRS CHBERG, HOLLOWAY, JOHNSON, SCHLEGEL)) 

WORD=CANDLAND 

WORD=HIRSCHBERG 

hrnnn  r i r\  t t /"m»t  a \r 

r\  u KD=nU  Li  uvn  Ai 


WORD=JOHNSON 

W0RD=SCHLEGEL 

MURPHY) ) * 

WORD=MURPHY 


END  INPUT  LIST  - LIST  NAME  = 1045200000021124 

LIST  STRUCTURE  WITH  HEADER  AT  2 I 12 4 


21131 

EICHELBERG 

SUBLIST 

21132 

21141 

FRASIER 

21143 

HOFFMAN 

SUBLIST 

21144 

21153 

JOHNSON 

21155 

KUK.1NAK1S 

21157 

CUMMINGS 

SUBLIST 

91 

4-  X 

1 AO 

xwu 

21167 

CANDLAND 

21171 

HIRSCHBERG 

21173 

HOLLOWAY 

21175 

JOHNSON 

21177 

SCHLEGEL 

END  OF  SUBLIST 
END  OF  SUBLIST 

21201  MURPHY 
END  OF  SUBLIST 
END  OF  SUB LI  ST  STRUCTURE 
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EICHELBERG 

BEGIN  SUB LIST 

FRASIER 

REED 

HOFFMAN 

BEGIN  SUBLIST 

JOHNSON 

I/’  AT/  T \ T » !/  TP 

NUMWANia 


BEGIN  SUB LIST 
CANDLAND 
HIRSCHBERG 
HOLLOWAY 


JOHNSON 

SCHLEGEL 


END  SUBLIST 

r?xrr\  error  tot 
CiNU  OUDUOl 

MURPHY 
END  SUBLIST 
END  LIST 
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Figure 


- A Simple  List  Structure  Showing  a Super 
List  Containing  One  Sublist 
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DISTRIBUTION  LIST 


ioc 


Otojitii  7.at  i ftn 



No . of 

CoDies  Organization 

t , ~ — v 


1 2 Commander 

Defense  Documentation  Center 
ATTN:  DDC-TCA 

Cameron  Station 
Alexandria,  Virginia  22314 

1 Director 

Defense  Advanced  Research 
Projects  Agency 
ATTN:  Tech  Info  Ctr 

1400  Wilson  Boulevard 
Arlington,  Virginia  22209 

1 Director 

Institute  for  Defense  Analysis 
400  Army-Navy  Drive 
Arlington,  Virginia  22202 


1 Director 

Defense  Intelligence  Agency 
Washington,  DC  20301 

1 Commander 

U.S.  Army  Materiel  Command 
ATTN:  AMCDL 

5001  Eisenhower  Avenue 
Alexandria,  Virginia  22333 

1 C rtmmariflor 

i.  vjv/mmuil  v*v  a 

U.S,  Army  Materiel  Command 
ATTN:  AMCRD-T 

5001  Eisenhower  Avenue 
Alexandria,  Virginia  22333 


1 


Couijnander 

II  Q Armv  A\H  a + i rm  ^vcfomc 

W • • i Vi  my  < l » A X*  b X Vtl  L/y  W « j I— ' 

Command 

A'lTN : AMSAV-E 

12th  5 Spruce  Streets 

St.  Louis,  Missouri  63166 


1 Director 

II  Q A -r*mv  Air  MaV»  i 1 i fv  Da  ca  orpK 

L/  « O • / \ A  1 II  111  / AXi.  rivuxx  A uv  jvul  Cll 

and  Development  Laboratory 
Ames  Research  Center 
Moffett  Field,  California  94035 


1 Commander 

U.S.  Army  Electronics  Command 
ATTN:  AMSEL-RD 

Fort  Monmouth,  New  Jersey 
07703 


1 Commander 

U.S.  Army  Missile  Command 
ATTN:  AMSMI-R 

Redstone  Arsenal,  Alabama 
35809 


U.S.  Army  Tank  Automotive 
Command 

ATTN:  AMSTA-RHFL 

Warren,  Michigan  48090 


2 Commander 

U.S.  Army  Mobility  Equipment 
Research  § Development  Center 
ATTN:  Tech  Docu  Cen,  Bldg.  315 

AMSME-RZT 

Fort  Belvoir,  Virginia  22060 


1 Commander 

U.S.  Army  Armament  Command 
Rock  Island,  Illinois  61202 

1 Commander 

U.S.  Army  Harry  Diamond 
Laboratories 
ATTN:  AMXDO-TI 

Washington,  DC  20438 

1 H-i  roetnr 

A 1VX  i V v.  V,U  1 

National  Bureau  of  Standards 
Department  of  Commerce 
Washington,  DC  20234 
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Aberdeen  Proving  Giuiffid 


Dir,  USAMSAA 

ATTN:  AMXSY-D,  Dr.  J. 

Mr.  L.  Bain 
Mr.  W.  Wenger 

Dir,  USAHEL 

ATTN:  Dr.  J.  Weiss 

Dr.  R.  Bauer 
r^A-v  riCATPrnM 


Sperrazza 
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